home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / NeuralNet 195835132001.psc / NP / frmTest.frm (.txt) next >
Encoding:
Visual Basic Form  |  2001-05-13  |  3.8 KB  |  125 lines
  1. VERSION 5.00
  2. Object = "*\AprjNP.vbp"
  3. Begin VB.Form frmTest 
  4.    Caption         =   "NeuralNet - By: Cory J. Geesaman"
  5.    ClientHeight    =   4230
  6.    ClientLeft      =   60
  7.    ClientTop       =   375
  8.    ClientWidth     =   6885
  9.    Icon            =   "frmTest.frx":0000
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   4230
  12.    ScaleWidth      =   6885
  13.    StartUpPosition =   3  'Windows Default
  14.    Begin VB.Frame Frame1 
  15.       Caption         =   "&Diminsions"
  16.       Height          =   2295
  17.       Left            =   5640
  18.       TabIndex        =   4
  19.       Top             =   1920
  20.       Width           =   1215
  21.       Begin VB.TextBox Text3 
  22.          Height          =   285
  23.          Left            =   120
  24.          TabIndex        =   10
  25.          Text            =   "10"
  26.          Top             =   1800
  27.          Width           =   975
  28.       End
  29.       Begin VB.TextBox Text2 
  30.          Height          =   285
  31.          Left            =   120
  32.          TabIndex        =   9
  33.          Text            =   "10"
  34.          Top             =   1200
  35.          Width           =   975
  36.       End
  37.       Begin VB.TextBox Text1 
  38.          Height          =   285
  39.          Left            =   120
  40.          TabIndex        =   8
  41.          Text            =   "30"
  42.          Top             =   600
  43.          Width           =   975
  44.       End
  45.       Begin VB.Label Label3 
  46.          AutoSize        =   -1  'True
  47.          Caption         =   "&Depth"
  48.          Height          =   195
  49.          Left            =   120
  50.          TabIndex        =   7
  51.          Top             =   1560
  52.          Width           =   435
  53.       End
  54.       Begin VB.Label Label2 
  55.          AutoSize        =   -1  'True
  56.          Caption         =   "&Height:"
  57.          Height          =   195
  58.          Left            =   120
  59.          TabIndex        =   6
  60.          Top             =   960
  61.          Width           =   510
  62.       End
  63.       Begin VB.Label Label1 
  64.          AutoSize        =   -1  'True
  65.          Caption         =   "&Width:"
  66.          Height          =   195
  67.          Left            =   120
  68.          TabIndex        =   5
  69.          Top             =   360
  70.          Width           =   465
  71.       End
  72.    End
  73.    Begin prjNP.NeuralProcessor NeuralProcessor 
  74.       Height          =   4215
  75.       Left            =   0
  76.       TabIndex        =   3
  77.       Top             =   0
  78.       Width           =   5535
  79.       _ExtentX        =   9763
  80.       _ExtentY        =   7435
  81.       BackColor       =   0
  82.       BorderStyle     =   1
  83.       Picture         =   "frmTest.frx":0442
  84.    End
  85.    Begin VB.CommandButton Command3 
  86.       Caption         =   "S&top Net"
  87.       Height          =   495
  88.       Left            =   5640
  89.       TabIndex        =   2
  90.       Top             =   1320
  91.       Width           =   1215
  92.    End
  93.    Begin VB.CommandButton Command2 
  94.       Caption         =   "&Start Net"
  95.       Height          =   495
  96.       Left            =   5640
  97.       TabIndex        =   1
  98.       Top             =   720
  99.       Width           =   1215
  100.    End
  101.    Begin VB.CommandButton Command1 
  102.       Caption         =   "&Init Net"
  103.       Height          =   495
  104.       Left            =   5640
  105.       TabIndex        =   0
  106.       Top             =   120
  107.       Width           =   1215
  108.    End
  109. Attribute VB_Name = "frmTest"
  110. Attribute VB_GlobalNameSpace = False
  111. Attribute VB_Creatable = False
  112. Attribute VB_PredeclaredId = True
  113. Attribute VB_Exposed = False
  114. Private Sub Command1_Click()
  115. If NeuralProcessor.InitNet(CLng(Text1.Text), CLng(Text2.Text), CLng(Text3.Text)) = False Then MsgBox "Error initializing NeuralNet", vbCritical, "An Error Occoured"
  116. End Sub
  117. Private Sub Command2_Click()
  118. NeuralProcessor.StartNet
  119. End Sub
  120. Private Sub Command3_Click()
  121. NeuralProcessor.StopNet
  122. End Sub
  123. Private Sub Form_Unload(Cancel As Integer)
  124. End Sub
  125.